home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New Farm Program.cpt / New Farm Program / card_4496.txt < prev    next >
Text File  |  1988-02-06  |  7KB  |  334 lines
  1. -- card: 4496 from stack: in
  2. -- bmap block id: 6873
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: last
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=167 top=38 right=66 bottom=198
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1015 / 1015
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Boing
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put card field "total own" of card "expense" into card field "expenses"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=168 top=57 right=85 bottom=199
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 1015 / 1015
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Boing
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   put card field "total rent" of card "expense" into card field "expenses"
  42.  
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (field)
  48. -- low flags: 01
  49. -- high flags: 4000
  50. -- rect: left=250 top=182 right=198 bottom=319
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: expenses
  59.  
  60.  
  61. -- part 4 (field)
  62. -- low flags: 00
  63. -- high flags: 4002
  64. -- rect: left=250 top=93 right=109 bottom=319
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: yield
  73.  
  74.  
  75. -- part 5 (field)
  76. -- low flags: 00
  77. -- high flags: 4002
  78. -- rect: left=250 top=115 right=131 bottom=319
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: cash price
  87.  
  88.  
  89. -- part 6 (field)
  90. -- low flags: 01
  91. -- high flags: 4001
  92. -- rect: left=250 top=138 right=154 bottom=319
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 3
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: acres
  101. ----- HyperTalk script -----
  102. on mouseDown
  103.   put card field "a2" from card "3rd" into card field "acres"
  104. end mousedowm
  105.  
  106.  
  107. -- part 7 (field)
  108. -- low flags: 01
  109. -- high flags: 4000
  110. -- rect: left=250 top=159 right=175 bottom=322
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 0
  114. -- font id: 3
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: gross cash
  119.  
  120.  
  121. -- part 8 (button)
  122. -- low flags: 00
  123. -- high flags: 0000
  124. -- rect: left=345 top=38 right=66 bottom=376
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 1015 / 1015
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Boing
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   get card field "a2" of card "2nd"
  136.   put it into card field "acres"
  137.   get card field "c2" of card "2nd"
  138.   put it into card field "total def"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 9 (button)
  144. -- low flags: 00
  145. -- high flags: 0000
  146. -- rect: left=345 top=55 right=83 bottom=376
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 1015 / 1015
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: 20 + 10
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   put card field "a3" of card "3rd" into card field "acres"
  158.   put card field "g3" of card "3rd" into card field "total def"
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 11 (field)
  164. -- low flags: 01
  165. -- high flags: 4000
  166. -- rect: left=250 top=205 right=221 bottom=319
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 0
  170. -- font id: 3
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: net cash
  175.  
  176.  
  177. -- part 12 (button)
  178. -- low flags: 00
  179. -- high flags: 0000
  180. -- rect: left=385 top=116 right=144 bottom=416
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 1015 / 1015
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: calc
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   set numberformat to "00.00"
  192.   put card field "acres" * card field "cash price" * card field "yield" into it
  193.   divide it by 100
  194.   multiply it by card field "h1" of card "1st"
  195.   put it into card field "gross cash"
  196.   put card field "gross cash" - card field "expenses" * card field "acres" into card field "net cash"
  197.   get card field "net cash" + card field "total def"
  198.   put it into card field "total income"
  199.   put card field "cash price" into x
  200.   put card field "pik" of card "1st" into y
  201.   put x - y into pik
  202.   put card field "yield" * pik into it
  203.   multiply it by field "a1" of card "1st"
  204.   divide it by 100
  205.   multiply it by card field "h1" of card "1st"
  206.   subtract card field "expenses" * field "a1" of card "1st" from it
  207.   put it into card field "non"
  208. end mouseUp
  209.  
  210.  
  211.  
  212. -- part 13 (field)
  213. -- low flags: 01
  214. -- high flags: 4000
  215. -- rect: left=249 top=228 right=244 bottom=319
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 3
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: total def
  224.  
  225.  
  226. -- part 14 (field)
  227. -- low flags: 01
  228. -- high flags: 4000
  229. -- rect: left=249 top=251 right=267 bottom=322
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 0
  233. -- font id: 3
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: total income
  238.  
  239.  
  240. -- part 15 (field)
  241. -- low flags: 01
  242. -- high flags: 4000
  243. -- rect: left=248 top=272 right=288 bottom=319
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 3
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: non
  252.  
  253.  
  254. -- part 16 (field)
  255. -- low flags: 00
  256. -- high flags: 0000
  257. -- rect: left=363 top=240 right=296 bottom=433
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: overall
  266.  
  267.  
  268. -- part 17 (field)
  269. -- low flags: 00
  270. -- high flags: 0001
  271. -- rect: left=198 top=220 right=235 bottom=249
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 0
  275. -- font id: 3
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: 
  280.  
  281.  
  282. -- part 21 (field)
  283. -- low flags: 00
  284. -- high flags: 0001
  285. -- rect: left=231 top=158 right=172 bottom=253
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 3
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: 
  294.  
  295.  
  296. -- part contents for card part 3
  297. ----- text -----
  298. 219.00
  299.  
  300. -- part contents for card part 11
  301. ----- text -----
  302. -364.00
  303.  
  304. -- part contents for card part 7
  305. ----- text -----
  306. 11900.00
  307.  
  308. -- part contents for card part 6
  309. ----- text -----
  310. 56.00
  311.  
  312. -- part contents for card part 13
  313. ----- text -----
  314. 5112.00
  315.  
  316. -- part contents for card part 14
  317. ----- text -----
  318. 4748.00
  319.  
  320. -- part contents for card part 15
  321. ----- text -----
  322. -2020.00
  323.  
  324. -- part contents for card part 4
  325. ----- text -----
  326. 125
  327.  
  328. -- part contents for card part 5
  329. ----- text -----
  330. 1.7
  331.  
  332. -- part contents for card part 16
  333. ----- text -----
  334. Your Milo Totals